home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 87xx / 8707.d64 / an 64'er (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  12KB  |  16 lines
  1. 591 GOTO595
  2. 592 :
  3. 593 : WAS MADE WITH MESSAGE-MAKER           : WRITTEN 1987 BY REINER STEIN   !
  4. 594 :
  5. 595 IFA<>2THENA=1
  6. 596 IFA=1THENA=2:LOAD"HUNTER*AXELXXXXX",8,1
  7. 597 IFA=2THENSYS49152
  8. 598 POKE53272,(PEEK(53272)AND240)OR12
  9. 600 S=02505:POKE53281,0:POKE53280,0:PRINT"[147]";CHR$(142):GOSUB630
  10. 610 IFPEEK(S)=0THENSYS64738
  11. 612 A=PEEK(S):IFA=13ORA=17ORA=29ORA=141ORA=145ORA=157ORA=148THENPOKE1024+B,Z
  12. 615 PRINTCHR$(A);
  13. 616 A=PEEK(214)*40+PEEK(211):Z=PEEK(1024+A):POKEA+1024,42:B=A
  14. 620 S=S+1:GOTO610
  15. 630 A=PEEK(214)*40+PEEK(211):Z=PEEK(1024+A):POKEA+1024,42:B=A:RETURN
  16.